home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / NW41BAS.ZIP / NW4XVOL.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-04-15  |  4.7 KB  |  109 lines
  1. 'NW4XVOL.BAS - Visual Basic for Windows Interface for the Netware SDK v4.X
  2. '     Contains all Function and Type declareations for Access Volume Info
  3. 'Created by Joseph A. DiVito of Seton Hall Univeristy
  4. 'Requires the NW4XCOMM File
  5.  
  6. Global Const VINetWare386 = 0
  7. Global Const VINetWare286 = 1
  8. Global Const VINetWare386v30 = 2
  9. Global Const VINetWare386v31 = 3
  10.  
  11. '/*    define the extended volume information status flag bits  */
  12.  
  13. Global Const NWSubAllocEnabledBit = &H1
  14. Global Const NWCompressionEnabledBit = &H2
  15. Global Const NWMigrationEnabledBit = &H4
  16. Global Const NWAuditingEnabledBit = &H8
  17. Global Const NWReadOnlyEnabledBit = &H10
  18.  
  19.  
  20. Type NWOBJ_REST
  21.     objectID As Long
  22.     restriction As Long
  23. End Type
  24.  
  25. Type NWVolumeRestrictions
  26.     numberOfEntries As String * 1
  27.     resInfo(12) As NWOBJ_REST
  28. End Type
  29.  
  30. Type NWVOL_RESTRICTIONS
  31.     numberOfEntries As String * 1
  32.     resInfo(12) As NWOBJ_REST
  33. End Type
  34.  
  35. Type VOL_STATS
  36.     systemElapsedTime As Long
  37.     volumeNumber As String * 1
  38.     logicalDriveNumber As String * 1
  39.     sectorsPerBlock As Integer
  40.     startingBlock As Integer
  41.     totalBlocks As Integer
  42.     availableBlocks As Integer
  43.     totalDirectorySlots As Integer
  44.     availableDirectorySlots As Integer
  45.     maxDirectorySlotsUsed As Integer
  46.     isHashing As String * 1
  47.     isCaching As String * 1
  48.     isRemovable As String * 1
  49.     isMounted As String * 1
  50.     volumeName As String * 16
  51. End Type
  52.  
  53. Type NWVolExtendedInfo
  54.     volType As Long
  55.     statusFlag As Long
  56.     sectorSize As Long
  57.     sectorsPerCluster As Long
  58.     volSizeInClusters As Long
  59.     freeClusters As Long
  60.     subAllocFreeableClusters As Long
  61.     freeableLimboSectors As Long
  62.     nonfreeableLimboSectors As Long
  63.     availSubAllocSectors As Long            '* non freeable */
  64.     nonuseableSubAllocSectors As Long
  65.     subAllocClusters As Long
  66.     numDataStreams As Long
  67.     numLimboDataStreams As Long
  68.     oldestDelFileAgeInTicks As Long
  69.     numCompressedDataStreams As Long
  70.     numCompressedLimboDataStreams As Long
  71.     numNoncompressibleDataStreams As Long
  72.     precompressedSectors As Long
  73.     compressedSectors As Long
  74.     numMigratedDataStreams As Long
  75.     migratedSectors As Long
  76.     clustersUsedByFAT As Long
  77.     clustersUsedByDirs As Long
  78.     clustersUsedByExtDirs As Long
  79.     totalDirEntries As Long
  80.     unusedDirEntries As Long
  81.     totalExtDirExtants As Long
  82.     unusedExtDirExtants As Long
  83.     extAttrsDefined As Long
  84.     extAttrExtantsUsed As Long
  85.     DirectoryServicesObjectID As Long
  86.     volLastModifiedDateAndTime As Long
  87. End Type
  88.  
  89. 'Move this function to NW4XDIR.BAS when completed
  90. Declare Function NWGetDirSpaceInfo Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal dirHandle%, ByVal VolNumber%, spaceInfo As DIR_SPACE_INFO) As Integer
  91.  
  92. 'volumNum should by Init. to String * 1 for all VolNum$'s
  93. Declare Function NWGetDiskUtilization Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectID&, ByVal volumeNumber$, usedDirectories%, usedFiles%, usedBlocks%) As Integer
  94. Declare Function NWGetObjDiskRestrictions Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber$, ByVal objectID&, restriction&, inUse&) As Integer
  95. Declare Function NWScanVolDiskRestrictions Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber$, sequence&, volInfo As NWVolumeRestrictions) As Integer
  96. Declare Function NWScanVolDiskRestrictions2 Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal volNum$, seq&, volInfo As NWVOL_RESTRICTIONS) As Integer
  97. Declare Function NWRemoveObjectDiskRestrictions Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber$, ByVal objectID&) As Integer
  98. Declare Function NWSetObjectVolSpaceLimit Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber%, ByVal objectID&, ByVal restriction&) As Integer
  99. 'VolumeName should be Init to String * 17
  100. Declare Function NWGetVolumeInfoWithHandle Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal dirHandle%, ByVal volName$, totalBlocks%, sectorsPerBlock%, availableBlocks%, totalDirEntries%, availableDirEntries%, volIsRemovableFlag%) As Integer
  101. Declare Function NWGetVolumeInfoWithNumber Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber%, ByVal volName$, totalBlocks&, sectorsPerBlock%, availableBlocks%, totalDirEntries%, availableDirEntries%, volIsRemovableFlag%) As Integer
  102. Declare Function NWGetVolumeName Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal volNum%, ByVal volName$) As Integer
  103. Declare Function NWGetVolumeNumber Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal volName$, VolNumber%) As Integer
  104. 'Below function for NW 2.2 Only
  105. Declare Function NWGetVolumeStats Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal volumeNumber%, volInfo As VOL_STATS) As Integer
  106. 'Below Function for NW 4.X Only
  107. Declare Function NWGetExtendedVolumeInfo Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal VolNumber%, volInfo As NWVolExtendedInfo) As Integer
  108.  
  109.